<script>on mouseUpglobal RFlagif the optionKey is down thenput true into AltFormatselseput false into AltFormatsend ifif the commandKey is down thenput true into RFlagelseput false into RFlagend ifglobal StockSymbolset lockMessages to trueset lockRecent to trueset the numberFormat to "0.000"put true into RFlagput empty into StockSymbolif AltFormats is false thenanswer "Select file type:" with "Cancel" or "AOL" or "Prodigy"elseanswer "Select file type:" with "Cancel" or "GEnie" or "CIS MQuote II"end ifif it is "Cancel" then exit mouseUpput it into fileTypeput "Select Type text file to open:" into tPromptput fileType into word 2 of tPromptanswer file tPrompt of type "TEXT"put it into FileNameif it is empty then exit mouseUpopen file FileNameread from file FileName until EOFput it into TestFldclose file FileNameput false into DateFlagput 1 into counterpush cardput "Interpreting Data .....(Do Not Interrupt)"if fileType = "Prodigy" thenput " Symbol: ____" after the msgrepeat with loop = 1 to the number of lines in TestFldput line counter of TestFld into Testif the length of Test < 2 thendelete line counter of TestFldelsedelete the first char of Testif word 1 of Test = "PRODIGY" or word 1 of Test = "RODIGY" thenif DateFlag is false thenput word 6 of Test into DDateconvert DDate to short dateask "Date of data?" with DDateif it is empty then exit mouseUpconvert it to short dateput it into DDateput true into DateFlagelsedelete line counter of TestFldend ifelseif char 1 of Test = space thendelete line counter of TestFldelseif char 1 of Test = "-" thendelete line counter of TestFldelseget the charToNum of char 2 of Testif it >=97 and it <=122 thendelete line counter of TestFldelsedelete the first char of line counter of TestFldif number of words in Test > 3 then -- Stock Lineput comma into char 9 of Testput comma into char 20 of Testput comma into char 30 of Testput comma into char 41 of Testput comma into char 52 of Testput comma into char 63 of Testput word 1 of item 1 of Test into Symbolput Symbol into the last word of the msgput word 1 of item 2 of Test into Wholeif word 2 of item 2 of Test is not empty thenput word 2 of item 2 of Test into Fractionput Whole&" "&Fraction into Wholeend ifif char 1 of whole = "+" then delete char 1 of wholeput Whole into Closeput word 1 of item 3 of Test into Wholeif word 2 of item 3 of Test is not empty thenput word 2 of item 3 of Test into Fractionput Whole&" "&Fraction into Wholeend ifput Whole into Changeput word 1 of item 4 of Test into Wholeif word 2 of item 4 of Test is not empty thenput word 2 of item 4 of Test into Fractionput Whole&" "&Fraction into Wholeend ifif char 1 of whole = "+" then delete char 1 of wholeput Whole into Openput word 1 of item 5 of Test into Wholeif word 2 of item 5 of Test is not empty thenput word 2 of item 5 of Test into Fractionput Whole&" "&Fraction into Wholeend ifif char 1 of whole = "+" then delete char 1 of wholeput Whole into Highput word 1 of item 6 of Test into Wholeif word 2 of item 6 of Test is not empty thenput word 2 of item 6 of Test into Fractionput Whole&" "&Fraction into Wholeend ifif char 1 of whole = "+" then delete char 1 of wholeput Whole into Lowput word 1 of item 7 of Test into Volumeif Volume is empty then put "0" into Volumeput Symbol into item 1 of Testput Open into item 2 of Testput High into item 3 of Testput Low into item 4 of Testput Close into item 5 of Testput Change into item 6 of Testput Volume into item 7 of Testput Test into line counter of TestFldelse -- Mutual Fund Lineif the number of words in Test = 3 thendelete the last word of Testend ifput comma into char 9 of Testput word 1 of item 1 of Test into Symbolput Symbol into the last word of the msgput Symbol into item 1 of Testput word 1 of item 2 of Test into item 2 of Testput Test into line counter of TestFldend ifadd 1 to counterend ifend ifend ifend ifend ifend repeatelseif fileType = "AOL" thenask "Date of data?" with the short dateif it is empty then exit mouseUpconvert it to short dateput it into DDateput true into DateFlagset itemDelimiter to ";"repeat with loop = 1 to the number of lines in TestFldput line counter of TestFld into Testif the length of Test < 2 thendelete line counter of TestFldelseif char 1 of Test = space thendelete line counter of TestFldelseget the charToNum of char 2 of Testif (it >=97 and it <=122) or it = 42 thendelete line counter of TestFldelseput ";" into char 9 of Testput ";" into char 20 of Testput ";" into char 31 of Testput ";" into char 40 of Testput ";" into char 50 of Testput ";" into char 61 of Testput word 1 of item 1 of Test into Symbolput word 1 of item 2 of Test into Sharesput word 1 of item 3 of Test into Wholeif word 2 of item 3 of Test is not empty thenput word 2 of item 3 of Test into Fractionput Whole&" "&Fraction into Wholeend ifput Whole into Closeput word 1 of item 4 of Test into Wholeif word 2 of item 4 of Test is not empty thenput word 2 of item 4 of Test into Fractionput Whole&" "&Fraction into Wholeend ifput Whole into Changeput word 1 of item 5 of Test into PurchPriceput word 1 of item 6 of Test into GainLossput word 1 of item 7 of Test into Valueput empty into Testif Close contains "." then -- Mutual Fundset the numberFormat to "0.00"put Symbol & comma & Close into Testelseput Close into Openput Num2Frac(XFrac2Num(Close) + .0625) into Highput Num2Frac(XFrac2Num(Close) - .0625) into Lowput 100 into Volumeset the numberFormat to "0.###"put Symbol & comma & Open & comma & High & comma & Low & comma &¬Close & comma & Change & comma & Volume into Testend ifput Test into line counter of TestFldadd 1 to counterend ifend ifend ifend repeatelseif fileType = "CIS MQuote II" thenrepeat with loop = 1 to the number of lines in TestFld -- CIS MQuote IIput line counter of TestFld into Testif the length of Test < 2 thendelete line counter of TestFldelseif word 1 of Test = "Pricing" thenif DateFlag is false thenput word 3 to 5 of Test into DDateconvert DDate to short dateask "Date of data?" with DDateif it is empty then exit mouseUpconvert it to short dateput it into DDateput true into DateFlagelsedelete line counter of TestFldend ifelseif char 1 of Test = space thendelete line counter of TestFldelseif char 1 of Test = "-" thendelete line counter of TestFldelseget the charToNum of char 2 of Testif it >=97 and it <=122 thendelete line counter of TestFldelseif number of words in Test > 3 then -- Stock Lineput comma into char 8 of Testput comma into char 22 of Testput comma into char 35 of Testput comma into char 48 of Testput comma into char 61 of Testput word 1 of item 1 of Test into Symbolput word 1 of item 2 of Test into Volumeput word 1 of item 3 of Test into Closeput "---" into Changeput Close into Openput word 1 of item 4 of Test into Highput word 1 of item 5 of Test into Lowput Symbol into item 1 of Testput Test into line counter of TestFldif (Volume = 0) and (High = Low) then -- Mutual Fund Lineset numberFormat to "0.00"put Close into item 2 of Testdelete item 3 to 7 of Testelse -- Stock Lineset numberFormat to "0.####"put Num2Frac(Open) into item 2 of Testput Num2Frac(High) into item 3 of Testput Num2Frac(Low) into item 4 of Testput Num2Frac(Close) into item 5 of Testput Change into item 6 of Testput Volume into item 7 of Testend ifput Test into line counter of TestFldend ifadd 1 to counterend ifend ifend ifend ifend ifend repeatdelete the last line of TestFld -- get rid of "Last page!"else-- GEnie format (comma delimited)ask "Date of data?" with the short dateif it is empty then exit mouseUpconvert it to short dateput it into DDateput true into DateFlagput " Symbol: ____" after the msgrepeat with loop = 1 to the number of lines in TestFldput line counter of TestFld into Testif the length of Test < 2 thendelete line counter of TestFldelseif char 1 of Test = space thendelete line counter of TestFldelseget the charToNum of char 2 of Testif (it >=97 and it <=122) or it = 42 thendelete line counter of TestFldelseput item 1 of Test into Symbolput Symbol into the last word of the msgset the numberFormat to "0.###"put Num2Frac(item 2 of Test) into Openput Num2Frac(item 3 of Test) into Highput Num2Frac(item 4 of Test) into Lowput Num2Frac(item 5 of Test) into Closeput 100 * item 6 of Test into Volumeput "---" into Changeset the numberFormat to "0.###"put Symbol & comma & Open & comma & High & comma & Low & comma &¬Close & comma & Change & comma & Volume into Testend ifput Test into line counter of TestFldadd 1 to counterend ifend ifend repeatend ifend ifset itemDelimiter to commaend ifdelete the last char of TestFldsort lines of TestFldset the numberFormat to "0.000"put "Updating Data Cards.....(Do Not Interrupt)"if the number of cds in this stack > 2 thengo cd 3elsego last cdend ifrepeat with index = 1 to the number of lines in TestFldput line index of TestFld into TLineif the number of items in TLine > 1 thenput item 1 of TLine into Symbolif the number of items in TLine < 3 thenput item 2 of TLine into Closeput empty into Changeput empty into Openput empty into Highput empty into Lowput empty into Volumeelseif item 2 of TLine is empty thenput item 5 of TLine into Openput Open into Closeput Open into Highput Open into Lowput "0" into Volumeput "0" into Changeelseif item 4 of TLine is empty thenput item 6 of TLine into Openput item 2 of TLine into Closeput item 7 of TLine into Volumeput "0" into Changeput Close into Highput Open into Lowelseput item 2 of TLine into Openput item 3 of TLine into Highput item 4 of TLine into Lowput item 5 of TLine into Closeput item 6 of TLine into Changeput item 7 of TLine into Volumeend ifend ifend ifput DDate&&Open&&High&&Low&&Close&&Change&&Volume into OutStrrepeat with Ctr = Length of DDate to 8put space after word 1 of OutStrend repeatrepeat with counter=2 to 7put length of word counter of OutStr into Tempif Temp < 7 thenput 7-Temp into Temprepeat with Ctr = 1 to Tempput space before word counter of OutStrend repeatend ifend repeatvisual effect iris open very fastgo to card Symbolif the result is not empty thenput Symbol into StockSymboldoMenu "New Card"set the name of this card to Symbolput empty into StockSymbolend ifconvert DDate to secondsconvert DDate to short dateif DDate is in field "Daily History" of card Symbol thenput "You already have data for " & Symbol & "for " & DDate¬into TempStrif RWFlag is not true then answer TempStr with "Cancel Update"¬or "Continue"if it is "Cancel Update" then exit mouseUpput true into RWFlagfind DDate in bg fld "Daily History" of card Symbolput the foundline into Tempput word 2 of Temp into TempLineput line TempLine of fld "Daily History" of card Symbol into TempLinedelete Tempend ifput true into fld "Card Dirty" of card Symbolput true into fld "Daily Dirty" of card Symbolput true into fld "Weekly Dirty" of card Symbolif the hilite of background button "Mutual Fund" of card Symbol is true thenput word 1 to 2 of OutStr into OutStrend ifif the number of lines in fld "Daily History" <> 0 then put return after field "Daily History" of card Symbolput OutStr after field "Daily History" of card Symbolend ifend repeatput "Updating Individual Stock information....."pop cardput empty into the msghide the msg boxset cursor to 1put false into RFlagsend mouseUp to btn "Graph Marked Cards"end mouseUp</script>
</part>
<part>
<id>3</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>31</left>
<top>38</top>
<right>181</right>
<bottom>86</bottom>
</rect>
<style>roundrect</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Update $tock$tack</name>
<script>on mouseUpanswer file "Select $tock$tack to update:" of type "STAK"if (it is empty) or (the result is "Cancel") then exit mouseUpput it into srcFileput the script of cd btn "Update Script" into tempScriptset cursor to watchpush cardset lockMessages to truelock screengo stack srcFilego cd 1set the script of cd btn "Update" of cd 1 to tempScriptset the name of cd btn id 89 to "Version 1.4a"if the first word of cd fld "Stock Index" = ".DJIA" thenput "&DJIA" into the first word of cd fld "Stock Index"go cd ".DJIA"put "&DJIA" into fld "Symbol"set the name of this card to "&DJIA"end ifpop cardset lockMessages to falseunlock screenanswer "Update completed."end mouseUp</script>
</part>
<part>
<id>4</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>19</left>
<top>97</top>
<right>205</right>
<bottom>263</bottom>
</rect>
<style>shadow</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <true /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Monaco</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<textHeight>12</textHeight>
<name>Instructions</name>
<script></script>
</part>
<part>
<id>5</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>18</left>
<top>265</top>
<right>205</right>
<bottom>325</bottom>
</rect>
<style>shadow</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <true /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Times</font>
<textSize>14</textSize>
<textStyle>bold</textStyle>
<textHeight>18</textHeight>
<name>Author</name>
<script></script>
</part>
<content>
<layer>card</layer>
<id>1</id>
<text><span class="style2">ew Prodigy® Quote Track Info:</span><span class="style3"></span><span class="style1">To use $tock$tack with the new Prodigy® Quote Track, select the following options in"Report Setup" under the file menu:Range: EntireReport Type: CurrentDestination: File (and Enter a File Name)$tock$tack will read in all (or at least most) stock and mutual funds, and now willalso read in the DJIA (Symbol: &DJIA) although it doesn't include any volume. Thevolume already entered in the sample $tock$tack is for the NYSE. Other indices willprobably work; if you have problems with one, drop me a line and I'll take a look atit.To use a Quote Track file on your own disk (after you have created it) 'Jump' to 'QuoteTrack', then select 'Open' from the 'File' menu. Select 'Track on your own disk', thenenter the file name. The file should be in the SAME folder as Prodigy!Select 'View Quotes' from the 'File' menu, then select 'Report Setup' (I'm not surewhether you have to do this every time; if you only use one file, then you probablydon't have to.) Then enter the Setup parameters listed above, and select "Save" or"Save and Print". After you have saved your parameters, you should be able to omit the'Report Setup' step, and just select 'Print' from the 'File' menu.Similar procedures apply if your using a 'Quote Track' stored on Prodigy®, just selectthe appropriate 'Quote Track' instead of a file.Your patience is appreciated, and I'll try to keep on top of the changes which Prodigy®makes.Pat Sullivan (Prodigy: MFGV75A)</span></text>
</content>
<content>
<layer>card</layer>
<id>4</id>
<text>To update version 1.4 of $tock$tack, simply push the button above and select the appropriate $tock$tack.This stack will update your version to version 1.4a, and you should then be able to read the new Prodigy® Quote Track files.</text>
</content>
<content>
<layer>card</layer>
<id>5</id>
<text>Patrick M. SullivanProdigy: MFGV75AAOL: PSulliv256</text>
.iso/HyperCard/Business/$tock$tack v1.31b/$tock$tack Updater/BMAP_3676.png){kind=link}
.iso/HyperCard/Business/$tock$tack v1.31b/$tock$tack Updater/PATs.png){kind=link}